inherited fmNewFinger: TfmNewFinger
  Left = 420
  Top = 184
  Width = 520
  Height = 505
  Caption = #1057#1082#1072#1085#1080#1088#1086#1074#1072#1085#1080#1077' '#1086#1090#1087#1077#1095#1072#1090#1082#1086#1074
  Constraints.MaxHeight = 505
  Constraints.MaxWidth = 520
  Constraints.MinHeight = 505
  Constraints.MinWidth = 520
  Menu = MainMenu1
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel [0]
    Left = 0
    Top = 56
    Width = 505
    Height = 201
    Anchors = [akLeft, akTop, akRight]
  end
  object Label7: TLabel [1]
    Left = 5
    Top = 45
    Width = 207
    Height = 19
    Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1086#1090#1087#1077#1095#1072#1090#1082#1086#1074':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object GrayPic: TImage [2]
    Left = 25
    Top = 64
    Width = 184
    Height = 185
    Center = True
    Proportional = True
  end
  object BinPic: TImage [3]
    Left = 289
    Top = 64
    Width = 184
    Height = 185
    Center = True
    Proportional = True
  end
  inherited sbBottom: TStatusBar
    Top = 432
    Width = 512
  end
  inherited Panel1: TPanel
    Width = 512
    inherited BitBtn1: TBitBtn
      Left = 342
    end
    inherited BitBtn2: TBitBtn
      Left = 430
    end
  end
  object btSave: TButton [6]
    Left = 0
    Top = 261
    Width = 505
    Height = 39
    Anchors = [akLeft, akTop, akRight]
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btSaveClick
  end
  object editFingerSum: TcxTextEdit [7]
    Left = 216
    Top = 43
    Properties.ReadOnly = True
    TabOrder = 3
    Text = '0'
    Visible = False
    Width = 73
  end
  object Log: TRichEdit [8]
    Left = 1
    Top = 304
    Width = 508
    Height = 122
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'Log')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object impressionTypeComboBox: TComboBox [9]
    Left = 3
    Top = 65
    Width = 164
    Height = 21
    Style = csDropDownList
    Anchors = [akLeft]
    ItemHeight = 13
    TabOrder = 5
    Visible = False
  end
  object fingerPositionComboBox: TComboBox [10]
    Left = 4
    Top = 88
    Width = 163
    Height = 21
    Style = csDropDownList
    Anchors = [akLeft]
    ItemHeight = 13
    TabOrder = 6
    Visible = False
  end
  inherited dlgDS: TDataSource
    Top = 8
  end
  object qFinger: TIBDataSet
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DeleteSQL.Strings = (
      'delete from TFINGER'
      'where'
      '  CTEMPLATE = :OLD_CTEMPLATE and'
      '  IDFINGER = :OLD_IDFINGER and'
      '  PID = :OLD_PID')
    InsertSQL.Strings = (
      'insert into TFINGER'
      '  (CTEMPLATE, IDFINGER, PID)'
      'values'
      '  (:CTEMPLATE, :IDFINGER, :PID)')
    RefreshSQL.Strings = (
      'Select '
      '  IDFINGER,'
      '  PID,'
      '  CTEMPLATE'
      'from TFINGER '
      'where'
      '  CTEMPLATE = :CTEMPLATE and'
      '  IDFINGER = :IDFINGER and'
      '  PID = :PID')
    SelectSQL.Strings = (
      'Select IDFINGER, PID, CTEMPLATE from TFINGER')
    ModifySQL.Strings = (
      'update TFINGER'
      'set'
      '  CTEMPLATE = :CTEMPLATE,'
      '  IDFINGER = :IDFINGER,'
      '  PID = :PID'
      'where'
      '  CTEMPLATE = :OLD_CTEMPLATE and'
      '  IDFINGER = :OLD_IDFINGER and'
      '  PID = :OLD_PID')
    Left = 88
    Top = 120
    object qFingerIDFINGER: TIntegerField
      FieldName = 'IDFINGER'
      Origin = '"TFINGER"."IDFINGER"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFingerPID: TIntegerField
      FieldName = 'PID'
      Origin = '"TFINGER"."PID"'
      Required = True
    end
    object qFingerCTEMPLATE: TBlobField
      FieldName = 'CTEMPLATE'
      Origin = '"TFINGER"."CTEMPLATE"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object DSFinger: TDataSource
    DataSet = qFinger
    Left = 88
    Top = 168
  end
  object MainMenu1: TMainMenu
    AutoMerge = True
    Left = 384
    Top = 24
    object File1: TMenuItem
      Caption = '&File'
      object ReadfromFile: TMenuItem
        Caption = '&Read image from file...'
      end
      object menuItemSaveLeft: TMenuItem
        Caption = 'Save le&ft image'
      end
      object menuItemSaveRight: TMenuItem
        Caption = 'Save &right image'
      end
    end
    object Mode: TMenuItem
      Caption = '&Mode'
      object Enrollment: TMenuItem
        Caption = '&Enrollment'
        OnClick = EnrollmentClick
      end
      object EnrollmentWithGeneralization: TMenuItem
        Caption = 'E&nrollment with generalization'
      end
      object RecognitionFast: TMenuItem
        Caption = '&Recognition (Fast)'
      end
      object RecognitionFull: TMenuItem
        Caption = 'Re&cognition (Full)'
        Checked = True
        OnClick = RecognitionFullClick
      end
      object Verification: TMenuItem
        Caption = '&Verification'
      end
    end
    object Scanners: TMenuItem
      Caption = '&Scanners'
      object List: TMenuItem
        Caption = '&List'
      end
      object StartCapturing: TMenuItem
        Break = mbBarBreak
        Caption = 'S&tart capturing'
      end
      object CaptureOneImage: TMenuItem
        Caption = 'Ca&pture one image'
      end
      object StopCapturing: TMenuItem
        Caption = 'St&op capturing'
      end
    end
    object Database: TMenuItem
      Caption = 'Tools'
      object ClearLog: TMenuItem
        Caption = '&Clear log'
      end
      object Cleardatabase: TMenuItem
        Caption = 'C&lear database'
      end
      object menuItemEnrollment: TMenuItem
        Break = mbBarBreak
        Caption = 'E&nrollment'
      end
      object menuItemMatching: TMenuItem
        Caption = 'M&atching'
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object menuItemAbout: TMenuItem
        Caption = '&About'
      end
    end
  end
  object TimerBioScan: TTimer
    Interval = 10
    OnTimer = TimerBioScanTimer
    Left = 28
    Top = 24
  end
end
